home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / loancalc.arc / LOANNAGN.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  395b  |  14 lines
  1. FUNCTION NotAgain: boolean;
  2. { see if the user would like to rerun the program }
  3. VAR
  4.   c: char;
  5. BEGIN
  6.   write('Would you like another calculation of this type? (y/n) ');
  7.   read(kbd, c); writeln(c);
  8.   WHILE NOT (c IN ['y', 'Y', 'n', 'N']) DO
  9.     BEGIN
  10.       write('Type y for yes, or n for no: ');
  11.       read(trm, c); writeln;
  12.     END;
  13.   NotAgain := c IN ['n', 'N']
  14. END; { NotAgain }